home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Know Your Baseball - The Greatest Player Resource
/
Know Your Baseball - Greatest Player.iso
/
Baseball
/
Director
/
KTGCST.CST
/
00077_Script_Screen Prompts
< prev
next >
Wrap
Text File
|
1998-09-21
|
954b
|
34 lines
global gPrompts
-- this script reads the appropriate screen prompts in from the text member "ScreenPrompts"
-- gPrompts is used in the rollover script to set the prompt window
on initPrompts
set the ItemDelimiter to ","
set gPrompts = []
repeat with x = 1 to 48
set theprompt = item 2 of line x of field "ScreenPrompts"
append(gPrompts, thePrompt)
end repeat
set the forecolor of member "promptwindow" = 0
end
on setprompt a
if a < 1 or a > 43 then
put "Select an item" into field "promptwindow"
exit
end if
set myprompt = (getat(gPrompts,a) )
if myprompt = EMPTY then set myprompt = "Select an item"
put myprompt into field "promptwindow"
end
on loadnewlist newlist
set mylist = "List" & newlist
set the ItemDelimiter to ","
set gPrompts = []
repeat with x = 1 to 48
set theprompt = item 2 of line x of field mylist
append(gPrompts, thePrompt)
end repeat
end